﻿Public Class ClassBloc
    'Bloc de texte pour tri en blocs
    Public Contenu As String
    Public Cle As String
    Public Position As Integer

    Public Sub New()
        Me.Contenu = ""
        Me.Cle = ""
        Me.Position = 0
    End Sub

    Public Sub New(ByVal Contenu As String, ByVal Cle As String, ByVal Position As Integer)
        Me.Contenu = Contenu
        Me.Cle = Cle
        Me.Position = Position
    End Sub


End Class
